home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / bavarian / 141-150 / 145_anwendungen / ass-prg / maus.s < prev    next >
Text File  |  1993-11-04  |  959b  |  30 lines
  1.  
  2.  
  3.    ;14.03.90
  4.    ;Maus.s
  5.    ;das Prg. wartet auf linke oder rechte Maustaste
  6.    ;Zweck: in execute-Dateien z.B. Text auszugeben und
  7.    ;der Anwender macht weiter, wenn er will
  8.    ;es sollte dann aber im Text "klick Maus" stehen
  9.    ;damit der Anwender erkennt, wies weiter geht
  10.    ;da nur im Cli sinnvoll, ohne WBStartup-Code
  11.    ;"erklaere es zu PD", macht damit was Ihr wollt
  12.    ;Heiner
  13.    ;zweiter und fuer mich wichtiger:
  14.    ;mit diesem kurzen Prg. habe ich den IRQ untersucht
  15.  
  16. Schleife:
  17.    btst #$6,$bfe001   ; teste auf links
  18.    beq Ende          ; gedrueckt, dann Ende
  19.  
  20.    btst #$0a,$dff016  ; teste auf rechts
  21.    bne Schleife         ;weder rechts noch links,
  22.                         ;dann teste weiter
  23.  
  24. Ende:
  25.    clr.l d0     ;Gewohnheit von mir, da ich bei langen
  26.                 ;ASS-Prg. manchmal in execute-Dateien die
  27.    clr.l d1     ;ErrorMeldung failat xyz erhalten habe
  28.                 ;und so liefen meine Prg !?!?
  29.    rts         ;Ruecksprung
  30.